home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / PowerD / powerd / examples / ASLTest.d < prev    next >
Text File  |  2002-10-28  |  422b  |  25 lines
  1. // simple asl.library example
  2.  
  3. OPT    DOSONLY
  4.  
  5. MODULE    'libraries/asl',
  6.             'asl'
  7.  
  8. DEF    ASLBase
  9.  
  10. PROC main()
  11.     DEF    req:PTR TO FileRequester,name[256]:CHAR
  12.     IF ASLBase:=OpenLibrary('asl.library',37)
  13.         IF req:=AllocFileRequest()
  14.             IF RequestFile(req)
  15.                 StrCopy(name,req.Drawer)
  16.                 AddPart(name,req.File,256)
  17.                 PrintF('You entered: \s\n',name)
  18.                 FreeFileRequest(req)
  19.             ENDIF
  20.         ENDIF
  21.         CloseLibrary(ASLBase)
  22.     ENDIF
  23. ENDPROC
  24.  
  25.